00100		title clock
00200	
00300	a←1
00400	b←2
00500	p←17
00600	pdlen←10
00700	
00800	begin:	calli
00900	loop:	move p,[iowd pdlen,pdlist]
01000		calli a,22
01100		idivi a,=3600
01200		idivi a,=60
01300		push p,b
01400		pushj p, decout
01500		ttyuuo 3,[asciz/:/]
01600		pop p,a
01700		caige a,=10
01800		ttyuuo 3,[asciz/0/]
01900		pushj p, decout
02000		movei a,=60
02100		calli a,31
02150		ttyuuo 3, [asciz/
02175	/]
02200		jrst loop
02300	decout:	idivi a,=10
02400		push p,b
02500		skipe a
02600		pushj p,decout
02700		pop p,b
02800		addi b, "0"
02900		ttyuuo 1,b
03000		popj p,
03100	pdlist:	block pdlen
03200		end begin